home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 001a / ezzcomm.zip / ADDDL.T next >
Text File  |  1991-02-16  |  4KB  |  71 lines
  1.  : EZ-ZCOMM Copyright 1991 by Roger E. Hough, All Rights Reserved.
  2.  : Licensed for use at your own risk without fee. Altered versions,
  3.  : when distributed, must be clearly marked as altered and accompanied
  4.  : by the originals.
  5.  if !f%lib/%ZCUSER.ids;kill;create %lib/%ZCUSER.ids;nolog close
  6. tof:
  7.  display inhibit;open -!g %phones;display noinhibit;if t nolog
  8.  set s0 ,pcboard,rbbs,wildcat,rain,forumpc,odyssey,genesis,
  9. tofu: set s1 "";while "t&&!js1,:~" grab s1
  10.  if t split s1 " " / . "";obey "set? z9 \042js0,,%z2,\042";p?0 ife iz9,1 findq "\n%z0," %lib/%ZCUSER.ids;if !? goback tofu
  11.  if t goto havepg
  12.  lput "\E[0m\E[2J\E[37;44mUnable to Locate Entries\E[m\r\n\n"
  13.  return
  14. nextpg: set s0 ,pcboard,rbbs,wildcat,rain,forumpc,odyssey,genesis,
  15. lookn1: set s1 "";while "t&&!js1,:~" grab s1
  16.  if t split s1 " " / . "";obey "set? z9 \042js0,,%z2,\042";p?0 ife iz9,1 findq "\n%z0," %lib/%ZCUSER.ids;if !? goback lookn1
  17.  if !t goback tof
  18. havepg: set s2 "";while "t&&!js2,:~" grab s2
  19.  if t split s2 " " / . "";obey "set? z9 \042js0,,%z2,\042";p?0 ife iz9,1 findq "\n%z0," %lib/%ZCUSER.ids;if !? goback havepg
  20. lookn3: set s3 "";while "t&&!js3,:~" grab s3
  21.  if t split s3 " " / . "";obey "set? z9 \042js0,,%z2,\042";p?0 ife iz9,1 findq "\n%z0," %lib/%ZCUSER.ids;if !? goback lookn3
  22. lookn4: set s4 "";while "t&&!js4,:~" grab s4
  23.  if t split s4 " " / . "";obey "set? z9 \042js0,,%z2,\042";p?0 ife iz9,1 findq "\n%z0," %lib/%ZCUSER.ids;if !? goback lookn4
  24. lookn5: set s5 "";while "t&&!js5,:~" grab s5
  25.  if t split s5 " " / . "";obey "set? z9 \042js0,,%z2,\042";p?0 ife iz9,1 findq "\n%z0," %lib/%ZCUSER.ids;if !? goback lookn5
  26. lookn6: set s6 "";while "t&&!js6,:~" grab s6
  27.  if t split s6 " " / . "";obey "set? z9 \042js0,,%z2,\042";p?0 ife iz9,1 findq "\n%z0," %lib/%ZCUSER.ids;if !? goback lookn6
  28. lookn7: set s7 "";while "t&&!js7,:~" grab s7
  29.  if t split s7 " " / . "";obey "set? z9 \042js0,,%z2,\042";p?0 ife iz9,1 findq "\n%z0," %lib/%ZCUSER.ids;if !? goback lookn7
  30. lookn8: set s8 "";while "t&&!js8,:~" grab s8
  31.  if t split s8 " " / . "";obey "set? z9 \042js0,,%z2,\042";p?0 ife iz9,1 findq "\n%z0," %lib/%ZCUSER.ids;if !? goback lookn8
  32. lookn9: set s9 "";while "t&&!js9,:~" grab s9
  33.  if t split s9 " " / . "";obey "set? z9 \042js0,,%z2,\042";p?0 ife iz9,1 findq "\n%z0," %lib/%ZCUSER.ids;if !? goback lookn9
  34. listpg:
  35.  lput "\E[0m\E[2J\E[37;44mChoose One of the Following to Download a File From:\E[m\r\n\n"
  36.  if %s1 split s1 "~" "~" "";lput " 1 \T%z1";lput \r\n
  37.  if %s2 split s2 "~" "~" "";lput " 2 \T%z1";lput \r\n
  38.  if %s3 split s3 "~" "~" "";lput " 3 \T%z1";lput \r\n
  39.  if %s4 split s4 "~" "~" "";lput " 4 \T%z1";lput \r\n
  40.  if %s5 split s5 "~" "~" "";lput " 5 \T%z1";lput \r\n
  41.  if %s6 split s6 "~" "~" "";lput " 6 \T%z1";lput \r\n
  42.  if %s7 split s7 "~" "~" "";lput " 7 \T%z1";lput \r\n
  43.  if %s8 split s8 "~" "~" "";lput " 8 \T%z1";lput \r\n
  44.  if %s9 split s9 "~" "~" "";lput " 9 \T%z1";lput \r\n
  45.  lput \r\n
  46.  lput " n Next screen of selections\r\n"
  47.  lput " x Exit from Download List Menu\r\n"
  48.  acceptl1 s0 "\n\E[7mYour Selection:\E[m "
  49.  if is0,x ife t nolog closetx;return
  50.  if is0,n ife t goback nextpg;goback tof
  51.  else if is0,1 sets s0 %s1
  52.  else if is0,2 sets s0 %s2
  53.  else if is0,3 sets s0 %s3
  54.  else if is0,4 sets s0 %s4
  55.  else if is0,5 sets s0 %s5
  56.  else if is0,6 sets s0 %s6
  57.  else if is0,7 sets s0 %s7
  58.  else if is0,8 sets s0 %s8
  59.  else if is0,9 sets s0 %s9
  60.  else set s0 ""
  61.  if !%s0 lput "\r\nInvalid Request\r\n";gosub ak;goback listpg
  62.  split s0 " " "/" "." "~" "~" ""
  63.  if iz2,pcboard gosub top.%lib/adddlstd.t;goback listpg
  64.  if iz2,rbbs gosub top.%lib/adddlstd.t;goback listpg
  65.  if iz2,wildcat gosub top.%lib/adddlstd.t;goback listpg
  66.  if iz2,rain gosub top.%lib/adddlstd.t;goback listpg
  67.  if iz2,forumpc gosub top.%lib/adddlnum.t;goback listpg
  68.  if iz2,odyssey gosub top.%lib/adddlnum.t;goback listpg
  69.  lput "\r\nUnable to Create Entry for This Board\r\n"
  70.  gosub ak;goback listpg
  71.